home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Delphi Informant Complete 1995 - 2000
/
Delphi Informant Complete 1995 to 2000.iso
/
Delphi Informant Magazine Complete Works SOURCE CODE 1995.rar
/
1995
/
DEC
/
DI9512DH
/
mdiedit.dfm
/
mdiedit.txt
< prev
Wrap
Text File
|
1995-11-03
|
5KB
|
221 lines
object EditForm: TEditForm
Left = 191
Top = 349
Width = 399
Height = 210
ActiveControl = Memo1
Caption = 'Untitled'
Ctl3D = False
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'System'
Font.Style = []
FormStyle = fsMDIChild
Icon.Data = {<image000.ico>}
Menu = MainMenu1
PixelsPerInch = 96
Position = poDefault
Visible = True
OnActivate = MRUDisplay
OnClose = FormClose
OnCloseQuery = FormCloseQuery
TextHeight = 16
object Memo1: TMemo
Left = 0
Top = 0
Width = 391
Height = 164
Cursor = crIBeam
Align = alClient
BorderStyle = bsNone
Ctl3D = False
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Courier New'
Font.Style = []
ParentCtl3D = False
ParentFont = False
PopupMenu = MemoPopUp
ScrollBars = ssBoth
TabOrder = 0
WordWrap = False
end
object MainMenu1: TMainMenu
AutoMerge = True
Left = 335
object File1: TMenuItem
Caption = '&File'
object New1: TMenuItem
Caption = '&New'
OnClick = New1Click
ShortCutText = 'Ctrl+N'
end
object Open1: TMenuItem
Caption = '&Open'
OnClick = Open1Click
ShortCutText = 'Ctrl+O'
end
object Close1: TMenuItem
Caption = '&Close'
OnClick = Close1Click
end
object N1: TMenuItem
Caption = '-'
end
object Save1: TMenuItem
Caption = '&Save'
OnClick = Save1Click
ShortCutText = 'Ctrl+S'
end
object SaveAs1: TMenuItem
Caption = 'Save &As...'
OnClick = SaveAs1Click
end
object N2: TMenuItem
Caption = '-'
end
object Print1: TMenuItem
Caption = '&Print'
OnClick = Print1Click
ShortCutText = 'Ctrl+P'
end
object PrintSetup1: TMenuItem
Caption = 'Prin&t Setup...'
OnClick = PrintSetup1Click
end
object N3: TMenuItem
Caption = '-'
end
object MRU1: TMenuItem
OnClick = MRUClick
end
object MRU2: TMenuItem
Tag = 1
OnClick = MRUClick
end
object MRU3: TMenuItem
Tag = 2
OnClick = MRUClick
end
object MRU4: TMenuItem
Tag = 3
OnClick = MRUClick
end
object MRUSeparator: TMenuItem
Caption = '-'
end
object Exit1: TMenuItem
Caption = 'E&xit'
OnClick = Exit1Click
end
end
object Edit1: TMenuItem
Caption = '&Edit'
GroupIndex = 1
OnClick = SetEditItems
object Cut1: TMenuItem
Caption = 'Cu&t'
OnClick = CutToClipboard
ShortCutText = 'Ctrl+X'
end
object Copy1: TMenuItem
Caption = '&Copy'
OnClick = CopyToClipboard
ShortCutText = 'Ctrl+C'
end
object Paste1: TMenuItem
Caption = '&Paste'
OnClick = PasteFromClipboard
ShortCutText = 'Ctrl+V'
end
object Delete1: TMenuItem
Caption = 'De&lete'
OnClick = Delete
ShortCutText = 'Del'
end
object TMenuItem
Caption = '-'
end
object SelectAll1: TMenuItem
Caption = 'Select &All'
OnClick = selectAll
end
end
object Character1: TMenuItem
Caption = '&Character'
GroupIndex = 1
object Left1: TMenuItem
Caption = '&Left'
Checked = True
GroupIndex = 2
OnClick = AlignClick
end
object Right1: TMenuItem
Caption = '&Right'
GroupIndex = 2
OnClick = AlignClick
end
object Center1: TMenuItem
Caption = '&Center'
GroupIndex = 2
OnClick = AlignClick
end
object TMenuItem
Caption = '-'
GroupIndex = 2
end
object WordWrap1: TMenuItem
Caption = '&WordWrap'
GroupIndex = 3
OnClick = SetWordWrap
end
object TMenuItem
Caption = '-'
GroupIndex = 3
end
object Font1: TMenuItem
Caption = '&Font...'
GroupIndex = 4
OnClick = SetFont
end
end
end
object MemoPopUp: TPopupMenu
OnPopup = SetPopUpItems
Left = 308
Top = 65534
object Cut2: TMenuItem
Caption = 'Cut'
OnClick = CutToClipboard
end
object Copy2: TMenuItem
Caption = 'Copy'
OnClick = CopyToClipboard
end
object Paste2: TMenuItem
Caption = 'Paste'
OnClick = PasteFromClipboard
end
end
object FontDialog1: TFontDialog
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'System'
Font.Style = []
MinFontSize = 0
MaxFontSize = 0
Left = 363
end
object PrinterSetupDialog1: TPrinterSetupDialog
Left = 256
end
object PrintDialog1: TPrintDialog
Left = 280
end
object SaveFileDialog: TSaveDialog
Filter = 'Text Files (*.txt) | *.txt | All Files (*.*) | *.*'
Options = [ofHideReadOnly, ofNoReadOnlyReturn]
Left = 232
end
end